home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / defaults / interface / interface.cst / 00019_MI4.ls < prev    next >
Encoding:
Text File  |  2004-04-15  |  2.2 KB  |  88 lines
  1. on mouseDown
  2.   global textDispVisible,PSMdispVisible,Master,PSMtextVis,topicLetter, subtopicNumber,lineSelect,mediaChoice,mediaName,mediaField, gMute, gFade, gCurrentCDpath, vCDdriveID
  3.   
  4.   put line lineSelect of field mediaField into mediaList
  5.   
  6.   if item 1 of mediaList = 4 then
  7.     put item 2 of mediaList into mediaName
  8.   end if
  9.   if item 3 of mediaList = 4 then
  10.     put item 4 of mediaList into mediaName
  11.   end if
  12.   if item 5 of mediaList = 4 then
  13.     put item 6 of mediaList into mediaName
  14.   end if
  15.   if item 7 of mediaList = 4 then
  16.     put item 8 of mediaList into mediaName
  17.   end if
  18.   
  19.   set master = "MI4"
  20.   
  21.   set mediaChoice = 1.0
  22.   
  23.   -- THIS IS THE OLD SOUND STOP!
  24.   if gMute = 0 then
  25.     repeat while the volume of sound 2 > 4
  26.       set the volume of sound 2 to (the volume of sound 2 - 4)
  27.       updateStage
  28.       put the timer into time
  29.       repeat while the timer <= time
  30.         nothing
  31.       end repeat
  32.     end repeat
  33.     set the volume of sound 2 to 0
  34.     updateStage
  35.     set gFade = 1
  36.   end if
  37.   -- THIS IS THE NEW SOUND STOP
  38.   sound Stop 2
  39.   puppetSound 0
  40.   updateStage
  41.   
  42.   set the pausedAtStart of member (mediaName && integer(mediaChoice)) = TRUE
  43.   -------
  44.   if the machineType <> 256 then
  45.     set the filename of member (mediaName && integer(mediaChoice)) to (gCurrentCDpath & "content:MOVIE:" & (mediaName && integer(mediaChoice)) & ".mov")
  46.     set the castnum of sprite 41 to the number of cast (mediaName && integer(mediaChoice))
  47.   else
  48.     set the filename of member (mediaName && integer(mediaChoice)) to (gCurrentCDpath & "content\MOVIE\" & (mediaName && integer(mediaChoice)) & ".mov")
  49.     set the castnum of sprite 41 to the number of cast (mediaName && integer(mediaChoice))
  50.   end if
  51.   -------
  52.   
  53.   -------
  54.   -- FOR QUICKTIME VRs
  55.   set the width of sprite 41 to 320
  56.   set the height of sprite 41 to 240
  57.   updatestage
  58.   -------
  59.   
  60.   
  61.   global PSMdispVisible
  62.   
  63.   if not PSMdispVisible  then
  64.     openPSMdisp
  65.   end if
  66.   
  67.   PSMupdate
  68.   
  69.   repeat with n in [55, 56, 57]
  70.     set the visible of sprite n to TRUE
  71.   end repeat
  72.   
  73.   -- THE OLD SOUND STOP WAS HERE
  74.   
  75.   if the type of cast (the cast of sprite 41) = #digitalVideo then
  76.     set the movieRate of sprite 41 to 1
  77.   end if
  78.   
  79. end
  80.  
  81.  
  82. on mouseenter
  83.   ShowTextRoll "TextRoll-Movie"
  84. end
  85.  
  86. on mouseleave
  87.   HideTextRoll
  88. end